From: Kenichi Handa <handa@m17n.org>
Date: Fri, 17 Apr 2009 02:35:52 +0000 (+0000)
Subject: (unidata-get-decomposition): Adjust Hangle decomposition rule to
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~805
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c7e45cc0c0dc9b89dde35dfddecb9abc9723d20c;p=emacs.git

(unidata-get-decomposition): Adjust Hangle decomposition rule to
Unicode.
---

diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index 5a03fd71431..7fecb999d35 100644
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -828,11 +828,13 @@ Property value is a character."
 	  (L (+ #x1100 (/ char 588)))
 	  ;; V = VBase + (SIndex % NCount) * TCount
 	  (V (+ #x1161 (/ (% char 588) 28)))
+	  ;; LV = SBase + (SIndex / NCount) * NCount
+	  (LV (+ #xAC00 (* (/ char 588) 588)))
 	  ;; T = TBase + SIndex % TCount
 	  (T (+ #x11A7 (% char 28))))
       (if (= T #x11A7)
 	  (list L V)
-	(list L V T))))
+	(list LV T))))
 
    ))